﻿Option Explicit On
Option Strict On

Imports System.Threading
Imports Microsoft.SPOT
Imports Gadgeteer

'  Original Gadgeteer framework Copyright (c) Microsoft Corporation. (http://gadgeteer.codeplex.com/)
'  
'  Gadgeteer Light made by Stefan Thoolen (http://gadgeteerlight.codeplex.com/)
'
'  Licensed under the Apache License, Version 2.0 (the "License");
'  you may not use this file except in compliance with the License.
'  You may obtain a copy of the License at
'
'      http://www.apache.org/licenses/LICENSE-2.0
'
'  Unless required by applicable law or agreed to in writing, software
'  distributed under the License is distributed on an "AS IS" BASIS,
'  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'  See the License for the specific language governing permissions and
'  limitations under the License.
Namespace Sytech_Designs_Serial2USB

    Public Module Module1

        Dim WithEvents Comm As Gadgeteer.Interfaces.Serial

        Sub Main()
            Dim socket As Integer = 1
            Dim baudrate As Integer = 9600

            Dim Serial As Gadgeteer.Modules.Sytech.Serial2USB = New Gadgeteer.Modules.Sytech.Serial2USB(socket)
            Serial.Configure(baudrate, Interfaces.Serial.SerialParity.None, Interfaces.Serial.SerialStopBits.One, 8, False)
            Comm = Serial.GetPort
            Comm.AutoReadLineEnabled = True
            Comm.LineReceivedEventDelimiter = Constants.vbCr
            Comm.Open()
            Comm.WriteLine("Come on, type something!")

            Thread.Sleep(Timeout.Infinite)
        End Sub

        Private Sub Comm_LineReceived(sender As Gadgeteer.Interfaces.Serial, line As String) Handles Comm.LineReceived
            sender.WriteLine("Thanks, " + line)
        End Sub
    End Module

End Namespace